home *** CD-ROM | disk | FTP | other *** search
/ Mission 3 / Mission 3.zip / Mission 3.iso / zugabe / va45 / visual45 / library / extend / disk.s < prev    next >
Text File  |  1998-05-16  |  727b  |  33 lines
  1.  
  2.     ifd LIB_COMPARE_DISK_FREESPACE
  3.  
  4.     ; regarde s'il reste au moins d1.l octets sur le drive d0.w
  5.     ; Attention : d0=0 : drive courant, d0=1 : drive A ...
  6.  
  7. GWVA_COMPARE_DISK_FREESPACE:        ; d0.w=drive où comparer, d1.l=valeur à comparer
  8.             ; retour : d0=place libre + d7<0 = pas assez de place
  9.     save.l d1
  10.     DFREE GWVA_DISKINFO_TMP_STRUCT,d0
  11.     load.l d1
  12.  
  13.     lea GWVA_DISKINFO_TMP_STRUCT,a0
  14.  
  15.     move.l b_free(a0),d0            ; nb free clusters
  16.     mulu.l b_secsize(a0),d0            ; bytes / sector
  17.     mulu.l b_clsize(a0),d0            ; sector / cluster
  18.  
  19.     clr d7
  20.  
  21.     cmp.l d0,d1
  22.     ble.s .enough_free_space
  23.  
  24.     moveq #-1,d7
  25.  
  26. .enough_free_space:
  27.     rts
  28.  
  29.  BSS
  30. GWVA_DISKINFO_TMP_STRUCT:    ds.b L_DISKINFO
  31.  TEXT
  32.     endc    ; ifd LIB_COMPARE_DISK_FREESPACE
  33.